COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00006 00003
C00007 ENDMK
C⊗;

start:	move 7,[sixbit \TELNET\]
	setnam 7,
	movei 7,4777
	core 7,
	jfcl
	movei 7,job
	movem 7,71
	movei 7,alint
	hrrzm 7,job+2
	jrst c1
alint:	imskcl interr
	uwait
	debreak
	inchrs 1
	jrst c1
	caie 1,15
	cain 1,12
	skipa
	exit 0,
c1:	clkint 60.
	imstw interr
interr:	200,,0
job:	block 3
	end start